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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor dr 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

©Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

C om m ent 

2. Does the program do what the abstract says ? Yes Nq_ 

C om m ent - 

3. Is the description clear, understandable, and adequate? Yes No_ 

C om m ent 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent_ 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable)? Yes Nq_ 

C om m ent 

^o. Does the object program run satisfactorily? Yes No_ 

C om m ent 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

C om m ent 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

C om m ent 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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GENERAL EDIT SUBROUTINE 
WITH NEW MACRO INSTRUCTION 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



. ARRY SALUS 

ELECTRONIC DATA PROCESSING INC. 
60 CORAL CENTER 

FORT LAUDERDALE, FLORIDA APRIL 1965 



DECK KEY 



Source Deck 

Object Subroutine Deck 
with header and trailer 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



TITI*:: General EDIT Subroutine. Subject Classification: 1-6 

Author, Organization: Larry D. Salus, Electronic Data 
Processing, Inc. 

Date: May 7, 1965. Users Group Membership Code: 1400 

Direct Inquiries to: Larry Salus - Electronic Data Processing, 
Inc., 60 Coral Center, Fort Lauderdale, Fla., 
Phone: 305-565-1873. 

Description/Purpose: (5. Method, o. Restriction/Range, When 
Applicable) : To provide the 1620 SPS Programmer with an 
ease of editing similar to the hardware EDIT of the IBM 1401 
Systems. Incorporated is a new Macro instruction with three 
operands which specifies the field to be edited, where the 
edited field is to be stored and the format of the editing 
desired. 

Specifications : 

a. Storage used by program: 1,418 

b. Equipment required by program: Card; TNS.TNF.MF; Indirect 
Addressing; 1620 Model I 

Can program be used on lesser machine? No. 

c. Programmed in: SP035 

d. Type of Program: Subroutine for use with SP-035 

The General EDIT Subroutine generates its own linkage and re- 
turn address and therefore does not need the use of IBM's "Pick' 
•Subroutine. 
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PURPOSE. 

TO PROVIDE THE 1620 SPS PROGRAMMER WITH AN EASE OF EDITING SIMILAR TO 
THE HARDWARE EDIT OF THE IBM 1401 SYSTEMS. INCORPORATED IS A NEW MACRO 
INSTRUCTION WITH THREE OPERANDS WHICH SPECIFIES THE FIELD TO BE EDITED, 
WHERE THE EDITED FIELD IS TO BE STORED, AND THE FORMAT OF THE EDITING 
DESIRED. 

MACHINE CONFIGURATION. 



EDIT SUBROUTINE 
OP CODE FDIT COL. 12-16 

A OPERAND THE ADDRESS OF THE UNITS POSITION OF THE NUMERICAL 

FIELD TO BE EDITED WITH HIGH ORDER FLAG 
B OPERAND ADDRESS OF THE OUTPUT AREA 
C OPERAND ADDRESS OF THE CONTROL WORD 

FORMAT - EDIT A,R,C 

NOTE. IHEkE MUST NOT BE A COMMA AFTER THE C OPERAND IN ANY MACRO 



THE GENERAL EDIT SUBROUTINE WAS DESIGNED FOR A 1620-1443 SYSTEM, BUT IS 
APPLICABLE FOR OUTPUT ON CARDS, TAPE, AND TYPEWRITER AS WELL AS THE PRINTER 

BASIC PROGRAM MATERIAL. 

TO USE THE GENERAL EDIT SUBROUTINE A SLIGHT MODIFICATION OF THE SPS 

PROCESSER IS NECESSARY. INSERT A CARD IN THE FOLLOWING FORMAT NINE CARDS 

FROM THE REAR OF SP-020 OR SP-035. 

COL. COL. 

1-8 M5444963 63-64 -1 

9-10 18 65-69 J8013 

11 p 70-74 J8024 

12 

13-62 BLANKS 

CONSULT YOUR IBM MANUAL TO INTERFACE THE NEW SUBROUTINE INTO THE 
GENERAL SUBROUTINE DECK. 



CONTROL WORO. 

CONTAINS FORMAT OF EDiTE NUMBER 

1. THE CONTROL WORD MUST BE DEFIED AS A DAC. 

2. MAXIMUM LENGTH OF THE CONTROL WORD IS 20 ALPHA CHARACTERS. 
NOTE. THE CONTROL WORD CAN BE LARGER BUT NOT SMALLER THAN THE 

FIELD TO BE EDITED. 

3. ZEROS IN THE CONTROL WWD INDICATE POSITIONS TO BE FILLED. 

4. ANY SPECIAL OR ALPHA CHARACTER MAY BE PUT IN THE CONTROL WORD 
EXCEPT AN EQUAL SIGN, THIS WOULD BE TREATED AS AN 3. 

5. IF A SPECIAL OR ALPHA CHARACTER APPEARS IN THE FIRST CHARACTER 

OF THE DAC, THIS WILL INDICATE A FLOATING SPECIAL OR ALPHA CHARACTER. 

6. IF AN 9 SIGN APPEARS IN THE CONTROL WORD, THIS INDICATES THAT 
CHARACTERS TO THE RIGHT OF THE 3 SIGN WILL NOT BE SUPPRESSED 

7. THERE MUST BE THREE POSITIONS TO THE RIGHT OF THE UNITS POSITION 
OF THE CONTROL WORD. 

CHARACTERS IN ANY OF THESE THREE POSITIONS WILL APPEAR WHEN THE 
NUMBER TO BE EDITED IS NEGATIVE. 

8. FOLLOWING THE THIRD POSITION, AS ABOVE, THERE MUST BE AN ALPHA 

RECORD MARK. THE RECORD MARK WILL NOT BE TRANSFERRED TO THE OUTPUT AREA 



CONTROL WORD EXAMPLE. 



CONTRLDAC 14, $00 ,003.00 CR3, 
I 2 5 3 64 7 8 

EXAMPLES 

EDI TNUM8»0UTPUT»C ONTR L 
WILL BE ASSEMBLED AS. 

TFM PICK+ll,*+23, 
B SUBR, 
D0RG*-4, 
. DSA NUMB, OUTPUT, CONTR L 

EXAMPLE 1. 

NUMB 047531 

CONTRL- DAC 18 , $00 ,000 ,OOS).O0 CR?>, 

RESULT- $475.31 OUTPUT IS THE ADDRESS OF THE UNITS POSITION 
IF NUMB WAS NEGATIVE- $475.31 CR THE R IS IN OUTPUT+6 

EXAMPLE2. 

NUMB- -0000000 
CONTRL- OAC 17,00,000,003.00 CR3 , 
RESULT- .00 

WITHOUT THE 3 BEFORE THE DECIMAL POINT THE EDITED FIELD WOULD 
CONTAIN ALL BLANKS. 
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EXAMPLE3. 

NUMB 012345 

CONTRL- DAC 19 ,03ANS00 ,000 . 00*NF r ,3, 

RESULT- ANSOO, 123.45* 
IF NUMR WAS NEGATIVE — ANSOO ,123. '••5*NEG 

FXAMPLE4. 

NUMB- -52565 
CONTRL- DAC 12,00/00/00 a 1 , 
RESULT 5/25/65 

T IME 

THE TIME OF THE EDIT MACRC HAS TWO FACTORS. 

1. THF LENGTH OF THE FIELD TO BE EDITED 

2. THE TYPE OF EDITING SPECIFED 

EXAMPLE. J2345 WITH $0,003.00 CR 
EDITING THIS FIELD TAKES 85 MILLISECONDS., 

TO MODIFY EDIT SUBROUTINE TC HANDLE FIELDS LARGER THAN THE 20 SPECIFIED, 
CHANGE THE LENGTH OF THE THREF DC S , WORK, CON, KLEAR AND 
THE DSS STORE. FOR EVERY SINGLE INCREMENT OF WORK, INCREMENT STORE, 
CON, AND KLEAR BY TWO. ALSO MAKE THE NECESSARY CHANGES TO THE LAST 
TWO TRANSMIT FIELDS IN THE RESET ROUTINE. 

THE EDIT SUBROUTINE CALCULATES ITS CUN LINKAGE AND RETURN ADDRESS 

AND THEREFORE DOES NOT NEED THE USE OF THE IBM -PICK- SUBROUTINE. 
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* EDIT SUBROUTINE 

-« DATFD MARCH 19*5 

■■■ PROGRAMMED BY LARKY SALUS 

••< FOR ELECTRONIC DATA PROCESSING INC. 

=" FORT LAUOEROALEt FLORIDA 



05000 












DORG 


5000, 


00350 




00050 








DC 


50,0,350, 


05000 


L3 


05243 


00000 




PICK 


CF 


ZER,*-*,0, 


05012 


KO 


0555 1 


05011 






TF 


ADFLD, PICK+11, 01, 


05024 


KO 


05883 


0501 J 






TF 


EOF LD,PICK + 11, 0111 


05036 


Jl 


05551 


000-5 


01030 




AM 


ADFLD, 5, 010, 


05048 


KO 


05987 


0555J 


01040 




TF 


PUT, ADFLD, 0111, 


05060 


Jl 


05551 


000-5 


1050 




AM 


ADFLD, 5, 010, 


05072 


KO 


05495 


05 55 J 


01060 




TF 


CONTRL,AOFL0,01 11 , 


05084 


Jl 


05551 


000-1 






AM 


AOFLD, 1 ,010, 


05096 


KO 


06290 


05551 






TF 


EXIT+6, ADFLD, 01 , 


05108 


KO 


06310 


05881 


01070 




TF 


WORK, EOF LD, 0111, 


05120 


J2 


05495 


000-1 






SM 


CONTRL, 1,010, 


05132 


L3 


05667 


00000 






CF 


NEG, ,0, 


05144 


J6 


05376 


000-0 






TFM 


AM+8, 0,010, 


05156 


PJ 


05667 


06310 






MF 


NEG, WORK, 01, 












* 


THIS 


FINDS FIRST SNIG DIC 


05168 


MM 


05188 


-6310 


01080 


LOOK 


BNF 


MOO.W OR K , 1 7 , 


05180 


M9 


05 208 


00000 


01090 




B 


FOUMD, ,0, 


05187 












DORG 


*-4, 


05188 


J2 


05179 


000-i 


01 100 


MOO 


SM 


LOOK + 11 , I ,010, 


05200 


M9 


05168 


00000 


01110 




B 


LOOK, ,0, 


05207 












D OP G 


*-4, 


05208 


ML 


05300 


0517R 


01120 


FOUND 


BD 


DIGIT, LOOK + 11, 0111 


05220 


Jl 


05179 


000-1 


01130 




AM 


LOOK+11, 1,010, 


05232 


L2 


0517R 


00000 






SF 


LOOK + l 1 , ,06, 


05243 




00000 






ZER 


OS 


0,*, 


05244 


JM 


05179 


-6310 


01150 




CM 


LOOK+11, ^0R<<, 017, 


05256 


M7 


05 208 


01200 


01160 




BNZ 


FOUND, ,0, 


05268 


ML 


05300 


06310 






BD 


DIGIT,W0RK,01, 


05280 


LJ 


06311 


0549N 






TR 


STORE ,C ONTRL.Ol 1 1 , 


00350 




00050 








DC 


50,0,350, 


05292 


M9 


06080 


00000 


01170 




B 


NOSNIG,,0, 


05299 












OORG 


*-4, 


05300 


JO 


05179 


-6 310 


01180 


DIGIT 


TFM 


LOOK+11, WORK, 017, 


05312 


LJ 


06311 


0549N 


02010 




TR 


STORE , CONTRL, Oil 1, 



* THIS FINDS LCW ORDER POSITION Ur CONTROL 

* TESTS FOP ANY LEADING ZEROS 



05324 


MN 


05344 


-6312 


BNR 


BNR 


*+20,STCRE+l,017 


05336 


M9 


05516 


00000 




B 


REC, ,0, 


05343 










DORG 


*-4, 


05344 


ML 


05388 


533N 




BD 


BD,BNR+11,0111, 


05356 


JI 


05335 


000-2 




AM 


BNR+11 ,2,010, 


05368 


Ml 


05376 


000-1 


AM 


NOP 


*+8,l ,010, 


05380 


M9 


05324 


00000 




B 


BNR , , , 


05387 










DORG 


*-4, 


05388 


J2 


05335 


000-1 


BD 


SM 


BNR+11, 1,010, 


05400 


KN 


05434 


0533N 




TD 


*+34, BNR+11, 0111 


05412 


Jl 


05335 


000-1 




AM 


BNR+11 , 1,010, 



5 



i 



PAGE 


? 














05424 


f'3 


05356 


00 307 






RD 


AM- 12,307 ,0, 


05436 


J5 


05368 


00001 






TOM 


AM, 1,0, 


05448 


J5 


0533N 


00000 






TDM 


BNR+11 ,0,06, 


54 60 


J2 


05335 


000-1 






SM 


BNR+11 , 1 ,010, 


05472 


J5 


05 33M 


00007 






TDM 


BNR+11 ,7,06, 


05484 


L2 


05243 


00000 






SF 


ZER, ,0, 


05495 




00005 






CONTRL 


DC 


5,0,*, 


05496 


Jl 


05335 


000-1 






AM 


BNR+11, 1,010, 


05508 


M9 


05356 


00000 






B 


AM-12, ,0, 


05515 












D ORG 


*-4, 


05516 


J5 


05368 


00004 




REC 


TDM 


AM, 4,0, 


05528 


J2 


05335 


000-7 






SM 


BNR+11 ,7,010, 


05540 


L2 


0533N 


00000 






SF 


BNR+11, ,06, 


05551 




00005 






AOF LD 


DC 


5,0,*, 


0555? 


J? 


05335 


000-1 






SM 


BNR+11 , 1,010, 


05564 


J2 


05376 


000-4 






SM 


AM+8 ,4,010 


00350 




00050 








DC 


50,0,350, 


05576 


KL) 


06390 


0533N 


02070 




TF 


CON, BNR+11, 0111, 


05588 


jn 


05699 


-6 390 




SET 


TFM 


0UT+11,C0N,017, 


05600 


MM 


05688 


-6310 


20 80 


SEC 


BNF 


OUT,W 0RK,017, 


0561? 


JO 


05802 


-564^ 






TFM 


SANCH+6,TD,017, 


05624 


L3 


0561 J 


00000 






CF 


SEC+11 , ,06, 


05635 




00000 






CK. 


DS 


0,*, 


05636 


M9 


056 88 


00000 






B 


OUT, ,0, 


D5643 












DORG 


*-4, 


05644 


Jl 


05699 


000-1 




TD 


AM 


OUT+11 , 1,010, 


05656 


L? 


0569R 


00000 






SF 


OUT+11 , ,06 , 


05667 




000 00 






MEG 


DS 


0,*, 


0566B 


JO 


0580? 


-5600 






TFM 


SANCH+6 ,SEC ,017 , 


05680 


M9 


05836 


00000 






B 


OUTPUT , ,0, 


05687 












DORG 


*-4, 



THIS FILLS IN THE CONTROL FIELD 



05688 


4J 


00000 


-6390 


CUT 


NOP 


*-*, CON, 17, 


05700 


J2 


05699 


000-1 




SM 


OUT+11 , 1,010, 


05712 


KN 


05746 


0569R 




TD 


*+3 4, CUT+ 11,011 1, 


05724 


Jl 


05699 


000-1 




AM 


OUT+11, 1,0 10, 


05736 


M3 


05804 


00 303 




BD 


REC DM, 3 03,0, 


05748 


KM 


0569R 


0561 J 




TO 


OUT+11 ,SEC+11, 01611, 


05760 


J2 


05611 


000-1 




SI-' 


SEC+11, 1,010, 


0577? 


J? 


05699 


000-2 




SM 


OUT+11 ,2,010, 


05784 


J2 


05376 


000-1 




SM 


AM+8, 1,010 


05796 


M9 


05600 


00000 


6ANC.H 


B 


SEC, ,0, 


05803 










DORG 


*-4, 


05804 


J2 


05699 


000-2 


n ECOM 


SM 


OUT+11 ,2,010, 


05816 


J2 


05376 


000-1 




SM 


AM+8, 1,010, 


05828 


M9 


056 88 


00000 




B 


OUT, ,0, 


05*35 










OORG 


*-4, 


05836 


MM 


05928 


05243 


OUTPUT 


BNF 


0UTP,ZER,01, 


05848 


J4 


05376 


000-0 




CM 


AM+8, 0,010, 


00350 




00050 






DC 


50,0,350, 


05 860 


M7 


05916 


01100 




BNH 


OUTP-12,,0, 


0587? 


L3 


0569R 


00000 




CF 


OUT+11 , ,06, 


05883 




00005 




EOF LD 


DC 


5,0,*, 


05884 


J? 


05699 


000-2 




SM 


OUT+11 ,2,010, 


05896 


J2 


05376 


000-1 




SM 


AM+8, 1,010, 


05908 


M9 


05848 


00000 




B 


OUTPUT+12, ,0, 



(s> 



PAGE 
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05915 








05916 


L2 


0569R 


00000 


05928 


Jl 


05495 


000-1 


05940 


K0 


05635 


0549N 


05952 


J4 


05635 


OOOPO 


05964 


M6 


060 12 


01200 


05976 


L3 


0569R 


00000 


05987 




00005 




05988 


J2 


05699 


000-1 


06000 


KO 


0569R 


05635 


06012 


KO 


0598P 


06390 


06024 


MM 


06 200 


05667 


06036 


Jl 


05335 


000-6 


06048 


Jl 


05987 


000-6 


06060 


KO 


0598P 


0533N 


06072 


M9 


06 200 


00000 


06079 








06080 


J6 


05589 


000M9 


06092 


JO 


05594 


-6112 


061 04 


M9 


05324 


00000 


061 1 1 








061 12 


J6 


05589 


000 J6 


061 24 


JO 


05594 


—5699 


00326 




000 26 




06136 


JO 


05699 


-6 389 


06148 


J2 


05376 


000-1 


06160 


MM 


06 180 


05243 


061 72 


M9 


05836 


00000 


06179 








06180 


J6 


06390 


000-0 


06192 


M9 


06012 


00000 


06199 








06200 


JO 


05179 


-6310 


06212 


JO 


05335 


-6312 


06224 


JO 


05611 


-6310 


06236 


JO 


05699 


-6390 


06248 


KO 


06390 


06430 


06260 


KO 


06310 


06410 


06272 


KO 


06350 


06430 


06284 


49 


00000 


00000 



06291 
06310 
06311 
06390 
06430 
05000 



00020 
00040 
00040 
00040 



03060 



DORG *-4, 

SF OUT+11,,06, 

* 

* TESTS FOR A OOLLAR SIGN 

OUTP AM CONTRL, 1,010, 

TF CK, CONTRL, 0111, 

CM CK,70,010, 

BE OUTPU,,0, 

CF OUT+11,,06, 

PUT DC 5,0,*, 

SM OUT+11, 1,010, 

TF OUT+11 ,CK, 016, 

* 

* PUTS EDITED FIELD IN OUTPUT AREA 
* 

OUTPU TF PUT, C ON, 016, 

RNF RESET, NEG, 01, 

AM BNR+11,6,010, 

AM PUT ,6,010, 

TF PUT, BNR+11, 01611, 

R RESET, ,0, 

D ORG *-4, 

* IF NO SNIG DIGIT IT IS HANDLED HERE 



RETU 



NOSNIG TFM 
TFM 
B 

DORG 
TFM 
TFM 
DC 
TFM 
SM 
RNF 
B 

DORG 
TFM 



04030 RESET 



040 50 
04060 



EXIT 

05010 WORK 
05020 STORE 
05030 CON 

K LEAR 



DORG 

TFM 

TFM 

TFM 

TFM 

TF 

TF 

TF 

B 

DORG 

DC 

DSS 

DC 

DC 

DEND 



SET + 1 ,^9,010, 
SET + 6, RETU, 017, 
BNR, ,0, 
<=-4, 

SET+1, 16, 010, 

SET+6, OUT+11, 017, 

26,0,326, 

OUT + 11 ,CON-1,017, 

AM+8, 1 ,010, 

*+20,ZER,01, 

OUTPUT , , 0, 

*-4, 

CON, 0,010, 
OUTPU, ,0, 
*-4, 

L00K+11,W PRK,017, 

BNR+11 ,ST0RE+1, 017, 

SEC + 11, WORK, 017, 

OUT+11 ,C ON,0 17, 

C0N,KLEAR,01, 

W0RK,KLEAR-20,01, 

ST0RE+39,KLEAR,01, 

*-*,, 

*-4, 

20,0, 

40, 

40,0, 

40,0, 

PICK, 
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PICK 05000 
DIGIT 05300 
RFC 05516 
TO 05644 
OUTPUT 05836 
NOSNIG 06080 
STORE 06311 



LOOK 05168 
BNR 05324 
ADFLD 05551 
NEG 05667 
EDFLD 05883 
RETU 06112 
COM 06390 



MOD 05188 

AM 05368 

SET 05588 

OUT 05688 

OUTP 05928 

*FSET 06200 

KLFAR 06430 



FOUND 05208 
BO 05388 
SEC 05600 
SANCH 05796 
PUT 05 987 
EXIT 06284 



ZER 0524 
CONTRL 0549 
CK 0563 
RE COM 0580 
OUTPU 0601 
WORK 0631 
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TROUBLE SHOOTING 

FOR REASONS OF CORE AND TIME THE EDIT SUBROUTINE DOES NOT CHECK 
FOR ERRORS IN FORMAT. IN CASE OF A CHECK STOP WITHIN THE SUBROUTINE 
GO OVER THE FOLLOWING CHECK LIST. 

1. THERE MUST NOT BE A. COMMA AFTER THE C OPERAND. 

2. IS THE CONTROL WORD DEFINED AS A DAC. 

3. IS THERE A RECORD MAAK IN THE LAST POSITION OF THE CONTROL WORD. 

4. HAVE THE THREE POSITIONS TO THE RIGHT OF THE RECORD MARK BEEN 
ALLOWED FOR NEGATIVE NUMBERS. 

5. ARE THERE AS MANY OR M ORE ZEROS IN THE CONTROL WORD AS NUMERICAL 
POSITIONS OF THE FIELD TO BE EDITED. 
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* EDIT SUBROUTINE 

* DATED MARCH 1965 

* PROGRAMMED BY LARRY SA LUS 

* FOR ELECTRONIC DATA PROCESSING INC. 

* FORT LAUDERDALEt FLORIDA 





D0RG5 000, 




DC 


50,0,350, 


PICK 


CF 


ZER,*-*,0, 




TF 


ADFLD, PICK+11, 01, 




TF 


EDFLD,PICK+11,0111, 


01030 


AM 


ADFLD, 5,010, 


01040 


TF 


PUT, ADFLD, 0111, 


01050 


AM 


AOFLD, 5,010, 


01 060 


TF 


CONTRL, ADFLD, 0111, 




AM 


ADF LD, 1 ,010, 




TF 


EXIT+6,ADF LD,01, 


01 070 


TF 


WORK, EDFLD, 0111, 




SM 


CONTRL, 1,0 10, 




CF 


NEG, ,0, 




TFM 


AM +8, 0,0 10, 




MF 


NEG, WORK ,0 1 , 


* 








THIS FINDS FIRST SNIG 


* 






01080L00K 


BNF 


MOD, WORK, 017, 


01090 


B 


FOUND,, 0, 




D0RG*-4, 


01100M0D 


SM 


LOOK+ 11, 1,010, 


Oil 10 


B 


LOOK,,0, 



D0RG*-4, 

01120FOUND BD D IG I T, LOOK+l 1 ,0 1 1 1 , 
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01130 AM LOOK+ll, 1,010, 

SF LOOK+ll, ,06, 
ZER OS 0,*, 

01150 CM LOOK+ll, WORK, 017, 

01160 BNZ FOUND, ,0, 

BD DIGIT,W0RK,01, 

TR STORE, CONTRL, 0111, 

DC 50,0,350, 

01170 B NOSNIG,,0, 

D0RG*-4, 

01180DIGIT TFM LOOK+l 1, WORK, 017, 
02010 TR STORE, CONTR L, 0111, 



* 
* 

BNR 



AM 



BD 



THIS FINDS LOW ORDER POSITION OF CONTROL FIELD 
TESTS FOR AMY LEADING ZEROS 

BNR *+20, STORE+1,017, 
B RECO, 
D0RG*-4, 

BD BD,BNR+11,0111, 
AM BNR+11,2,010, 
NOP *+8, 1,010, 
B BNR,,0, 
D0RG*-4, 

SM BNR+11, 1,010, 
TD *+34, BNR+11, 0111, 
AM BNR+11, 1,010, 
BD AM-12,307,0, 
TDM AM, 1,0, 
TDM BNR+11, 0,06, 
SM BNR+11, 1,010, 
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02070 

SET 
02080SEC 



CK 



'TOM BNR+11, 7, 06, 
SF ZER,,0, 
CONTRLDC 5,0,*, 

AM BNR+11, 1,010, 
B AM-12,,0, 
D0RG*-4, 
REC TDM AM, 4,0, 

SM BNR + 11, 7, 010, 
SF BNR+11, ,06, 
ADFLD DC 5,0,*, 

SM BNR+11, 1,010, 
SM AM+8, 4, 010 
DC 50,0,350, 
TF CON , BNR + 11,0111, 
TFM 0UT+11,C0N,017, 
BNF OUT, WORK, 017, 
TFM SANCH+6,TD,017, 
CF SEC+11,,06, 
DS 0,*, 
B OUT,,0, 
D0RG*-4, 
TD AM OUT+11,1,010, 

SF OUT+11,,06, 
NEG DS 0,*, 

TFM SANCH+6,SEC,017, 
B OUTPUT , ,0 , 
D0RG*-4, 



* 
* 

OUT 



THIS FILLS IN THE CONTROL FIELD 
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NOP *-*,C0N,17, 



SM OUT+11,1,010, 

TD *+34,0UT+ll,0111, 

AM OUT+11,1,010, 

BD RECOM, 303,0, 

TD 0UT+11,SEC+11, 01611, 

SM SEC+11, 1,010, 

SM OUT+11,2,010, 

SM AM+8, 1,010 
SAMCH R SEC,,0, 

D0RG*-4, 
RECOM SM OUT+11,2,010, 

SM AM+8, 1,010, 

P OUT,,0, 

D0RG*-4, 
OUT PUT BN F 0UTP,ZER,01, 

CM AM+8, 0,010, 

DC 50,0,350, 

BNH OUTP-12,,0, 

CF OUT+11,,06, 
EDFLD DC 5,0,*, 

SM OUT+11,2,010, 

SM AM+8, 1,010, 

B OUTPUT+12, ,0, 

D0RG*-4, 

SF OUT+11,,06, 

* TESTS FOR A DOLLAR SIGN 
* 

OUTP AM C0NTRL,1,010, 

TF CK,C0NTRL,0111, 

CM CK,70,010, 
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BE OUTPU,, 0, 
CF OUT+11, ,06, 
PUT DC 5, 0»*, 

SM OUT + 11, 1,010, 
TF OUT+11, CK, 016, 

* 

* PUTS EOITED FIELD IN OUTPUT AREA 
* 

OUTPU TF PUT, CON, 016, 
BNF RESET, NEG, 01, 
AH BNR+11,6,010, 
AM PUT, 6, 010, 
TF PUT, BNR+11, 01611, 
03060 B RESET, ,0, 

D0RG*-4, 

* 

* IF NO SNIG DIGIT IT IS HANDLED HERE 

NOSNIGTFM SE T+ 1 , 49 ,010 , 

TFM SET+6,RETU,017, 

B BNR,,0, 

D0RG*-4, 
RETU TFM SET+1, 16,010, 

TFM SET+6,0UT+11,017, 

DC 26,0*326, 

TFM OUT+11, CON-1, 017, 

SM AM+8, 1,010, 

BNF *+20,ZER,01, 

B OUTPUT, ,0, 

D0RG*-4, 

TFM CON, 0,010, 
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B OUTPU, ,0, 
D0RG*-4, 

04030RESET TFM LOOK+ 11, WORK, 017, 

TFM BNR+11, STORE+1, 017, 

04050 TFM SEC+11 , WORK, 017, 

04060 TFM OUT+11, CON, 017, 

TF C0N,KLEAR,01, 
TF WORK,KLEAR-20,01, 
TF ST0RE+39,KLEAR,01, 
EXIT B 

D0RG*-4, 

05010W0RK DC 20,0, 

05020STORE DSS 40, 

05030C0N DC 40,0, 
KLEAR DC 40,0, 
DENDPICK, 
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